home *** CD-ROM | disk | FTP | other *** search
/ Adventures with Oslo: Tools & Gadgets / Adventures with Oslo - Tools and Gadgets.ISO / pc / program / ad / mod01 / map / 00005.ls < prev    next >
Encoding:
Text File  |  1994-09-23  |  370 b   |  19 lines
  1. on mouseUp
  2.   global gBackPack
  3.   puppetSound("leftdef.S")
  4.   updateStage()
  5.   if getOne(gBackPack, #doc5) then
  6.     set index to getOne(gBackPack, #profLee)
  7.     if index <> 0 then
  8.       deleteAt(gBackPack, index)
  9.     end if
  10.     go(1, "@:AL:Al3")
  11.   else
  12.     if getOne(gBackPack, #profLee) then
  13.       go(1, "@:AL:Al2")
  14.     else
  15.       go(1, "@:AL:Al1")
  16.     end if
  17.   end if
  18. end
  19.